149

Advanced Graphics

149

STEP 2 continued

    If Sheet.Name =​ “Any State” Then

      FoundSheet =​ 1

      Exit For

    End If

    Next

    If FoundSheet =​ 0 Then

      Set Sheet =​ ActiveWorkbook.Sheets.Add(After:=​ActiveWorkbook.

Worksheets(ActiveWorkbook.Worksheets.Count))

      Sheet.Name =​ “Any State”

  End If

STEP 2 & 3

  FoundSheet =​ 0

  For Each Sheet In ActiveWorkbook.Worksheets

  If Sheet.Name =​ “States” Then

    FoundSheet =​ 1

    Exit For

  End If

  Next

  If FoundSheet =​ 0 Then

    Set Sheet =​ ActiveWorkbook.Sheets.Add(After:=​ActiveWorkbook.

Worksheets(ActiveWorkbook.Worksheets.Count))

    Sheet.Name =​ “States”

  End If

  Worksheets(“States”).Cells(1, 1) =​ “State”

  Worksheets(“States”).Cells(1, 5) =​ “State”

  Worksheets(“States”).Cells(1, 6) =​ “Cum Count”

  Worksheets(“States”).Cells(1, 7) =​ “Rownum”

  For i =​ 1 To UBound(States)

    Worksheets(“States”).Cells(i +​ 1, 1) =​ States(i)

  Next

 

 

  FoundSheet =​ 0

  For Each Sheet In ActiveWorkbook.Worksheets

  If Sheet.Name =​ “Graphs” Then

    FoundSheet =​ 1

    Exit For

  End If

  Next

  If FoundSheet =​ 0 Then

    Set Sheet =​ ActiveWorkbook.Sheets.Add(After:=​ActiveWorkbook.

Worksheets(ActiveWorkbook.Worksheets.Count))

    Sheet.Name =​ “Graphs”

  End If

 

  ‘ Sheets required End ***

  Workbooks(CurrentWorkbookName).Activate

  ‘MacroWorkBookName =​ ThisWorkbook.FullName

 

  UserForm1.Show

End Sub